home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
intrfc61.arc
/
TEST1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-03-28
|
1KB
|
82 lines
{$N+} unit test1;
interface
type
type1 = array[1..5] of byte;
type2 = record
b1 : byte;
b2 : byte;
end;
type3 = object
b1 : byte;
b2 : byte;
constructor c(a1,a2:byte);
destructor d;
procedure m;
procedure v; virtual;
private
pb1 : byte;
procedure pm;
procedure pv; virtual;
end;
type4 = file of byte;
type5 = text;
type6 = function : byte;
type7 = set of byte;
type8 = ^byte;
type9 = string;
type10 = comp;
type11 = real;
type12 = 1..6;
type13 = boolean;
type14 = char;
type15 = (red, green, blue);
var
v : byte;
a : word absolute v;
const
tc : byte = 1;
{ These constants should all be printable }
i = 1;
b = true;
s = 'This is a string';
f = 1.23;
c = 'A';
procedure proc(v : byte; var r : byte);
function fun(v : byte; var r : byte) : byte;
implementation
constructor type3.c; begin write('1') end;
destructor type3.d; begin write('12') end;
procedure type3.m; begin write('123') end;
procedure type3.v; begin end;
procedure type3.pm; begin end;
procedure type3.pv; begin end;
procedure proc;
var
a : word absolute v;
begin end;
{$i test1.inc}
end.